home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1993 November
/
JCSM Shareware Collection - 1993-11.iso
/
cl720
/
vxbase1j.lzh
/
VXFORM4.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-11-13
|
10KB
|
257 lines
VXFORM4
Buyer Details
Form1%
BuyStatus
BuyExit
E&xit
BuyBrowse
&Browse
BuyPrevious
&Previous
BuyNext
&Next
BuyDelete
&Delete
BuyAdd
BuyCancel
&Cancel
BuySave
&Save
BuyHigh
BuyLow
BuyTypeDesc
BuyTypeHelp
MS Serif
BuyType
BuyCode
Label5
Status
MS Serif
Label4
High Price
MS Serif
Label3
Low Price
MS Serif
Label2
Aircraft Type
MS Serif
Label1
MS Serif
Form_Load7
vxSelectDbfb
AirbuyerDbf
Form4Active
BuyerReturn
BROWSE_ADD
BuyerDataClear(
BuyStatus
BuySave
Enabled?
BuyCancel7
BuyAddl
FALSE
BuyDeleteL
BROWSE_EDIT
BuyerDataLoad
vxRecNo,
Form_Unload
CancelJ
BROWSE_USERk
vxClose
AirtypesDbf
StatesOpen
AircustDbf
vxSelectNtx
Aircust1Ntx
vxSeek
CustKey
CustReturnG
VXFORM3
BuyCode
BuyType
BuyTypeDesc
BuyLow
BuyHighX
b_low
b_high
CursorWaitw
EnableBuyerData
vxDoubleJ
vxField
vxUnlock
CursorArrow
DisableBuyerData
BuyAdd_Click
BuyBrowse_Click
VXFORM4
Visible
BuyerRec
BrowseBuyers
BuyCancel_Click;
BuyDelete_Click
vxDeleteRec
BuyExit_Clickl
BuyHigh_KeyPress
KeyAscii
BuyLow_KeyPress
BuyType_GotFocus
vxCtlLength
BuyType_KeyPress
BuyType_LostFocus
EmptyString~
BuyNext_Click
EndFile
vxSkip5
BuyNextW
BuyPrevious
BuyBrowseA
vxEof%
vxBottom
vxBof
vxDeletedk
BuyHigh_GotFocus
BuyLow_GotFocus
BuyPrevious_Click
BegFile
BuySave_Click
TypeKey
SeekKey
vxAppendBlank
vxReplString
vxReplDouble3
vxWrite
BuyTypeHelp_Click
AirtypesNtx
TypeReturnU
vxBrowse
Hwnd~
Form_Paintd
vxFormFramer
vxCtlStyle
VX_RAISE
VX_RECESS
BROWSE_DELETE
vxCtlFormat
VX_NUM
VX_UPPER
BuyCode_Change
BuyAdd_Click
clear form for addition of new record
Record Addition Request"
ensure data entry enabled
reset the buttons
BuyBrowse_Click
ensure we're positioned to top rec of group
so we don't close files
when we unload the form
No buyer records on file!"
BuyCancel_Click
Clear form data and reset button status
Operation cancelled"
BuyDelete_Click
get user confirmation of delete
Confirm Delete
Deleted
Delete failed"
Delete cancelled
BuyerDataClear
BuyerDataLoad
b_low"
b_high
#######0
#######0
b_cat"
b_desc
b_code
BuyExit_Click
BuyHigh_GotFocus
Call vxCtlLength("b_high"))
BuyHigh_KeyPress
If KeyAscii = 13 Then
KeyAscii = 0=
SendKeys "{Tab}"
Exit Sub
End Ifu
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then-
KeyAscii = 0<
Beeps
End Iff
BuyLow_GotFocus
Call vxCtlLength("b_low")
BuyLow_KeyPress
If KeyAscii = 13 Then
KeyAscii = 0=
SendKeys "{Tab}"
Exit Sub
End Ifu
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then-
KeyAscii = 0<
Beeps
End Iff
BuyNext_Click
skip forward one record
if skip error, only allow exit
Error on Skip Next. Try Reindex.
if this rec doesn't belong to this customer, eof is true-
b_code
b_code
No buyer records on file!"
test for end of file
End of File!
Skipped to record
BuyPrevious_Click
skip back one record
if skip error, only allow exit
Error on Skip Previous. Try Reindex.
b_code
No buyer records on file!"
test for beginning of file"
Beginning of File!
Skipped to record
BuySave_Click
verify something in the field
Field cannot be empty"
verify unique key if adding
Duplicate Key on Add
Data passed. Put it away
b_code
b_cat"
b_desc
b_low"
b_high
Update status box
Record "
appended"
Record "
saved
Update Button Status
BuyType_GotFocus
Call vxCtlLength("b_cat")
BuyType_KeyPress
convert to uppercase
C$ = UCase$(C$)
{Tab}"
BuyType_LostFocus
catname"
BuyTypeHelp_Click
Aircraft Type Help
re-register databasec
category
catname"
DisableBuyerData
EnableBuyerData
Form_Load
Record addition request"
if user pressed ENTER then file is positioned
at current record and the record number isn
returned in BuyerReturn. In this case we assume
he wants to edit that record.
call general proc to load controls-
Edit record
Form_Paint
if delete request from browse, do it nowT
because we must let enhanced controls
paint before asking for delete confirmation
Form_Unload